home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / hard / drivr / spartan34_4.lha / true_SCSI_version / rdwt.asm < prev    next >
Assembly Source File  |  1980-07-31  |  7KB  |  259 lines
  1. ;
  2. ; 
  3. ; BUSY check on SELECT
  4. ; improved handshake on MSGIN, CMDOUT 
  5. ;
  6. ; 26 May 1992 TM
  7. ; 17 Jun 1992 TM    SCSI BUSY FLAG ADDED for simaltaneous copy bug
  8. ; 15 Sep 1992 TM        GENERIC version
  9. ; 04 Oct 1992 HL    Selection timeout return status added
  10. ;             Normal return status zero added
  11. ;            Removal of "15(a1)" accesses
  12. ;
  13.     include        "exec/types.i"
  14.     include        "exec/io.i"
  15.     include        "exec/devices.i"
  16.     include        "exec/tasks.i"
  17.     include        "exec/interrupts.i
  18.     include        "devices/scsidisk.i"
  19.     include        "mydev.i"
  20.     include        "scsi.i"
  21.  
  22.     Public        SCSIRdWt
  23.  
  24. SCSIRdWt:
  25.     bset.b    #3,NCR+4    ;TM!!! EOP INTERRUPT bit is used for
  26.     bne.s    SCSIRdWt    ;TM!!! SCSI BUSY FLAG
  27.     move.b    #$08,NCR+4    ;TM!!!
  28.     movem.l    d4-d7/a1-a5,-(sp)    ;save regs
  29.     move.l    #CMDBUF,a1        ;get CMDBUF add
  30.     clr.b    d7        ;clear error flag ; HL
  31.     move.l    d2,d5        ;copy unit#
  32.     moveq    #$0,d2        ;LU=0
  33.     lsr.l    #1,d5        ;create Target address
  34.     bcc.s    Drive
  35.     moveq    #$20,d2        ;LU=1
  36. STILLbsy1:
  37.     btst.b    #6,NCR+8    ; TM BUSY check
  38.     bne.s    STILLbsy1    ; TM wait if still busy
  39. Drive:
  40.     moveq    #$1,d4
  41.     lsl.l    d5,d4        ;shift to address bit
  42.     or.b    #$80,d4        ;add addresses
  43.     move.b    d4,NCR        ;load addresses
  44.     move.b    #$5,NCR+2    ;assert BUS with address
  45.  
  46. ;build the scsi cmd packet
  47.     move.l    d1,d4        ;get the start sect #
  48.     move.l    d0,d5        ;get the #bytes to transfere
  49.     asr.l    #8,d5        ;shift 9 palces to get sectors
  50.     asr.l    #1,d5
  51.     and.l    #$FF,d5        ;must be less than 1 byte
  52. ;    asl.l    #8,d5        ;move to upper byte in word; TM to enable NEC cache
  53. ;    move.w    d5,4(a1)    ;place in packet           ; TM
  54.     move.b    d5,4(a1)    ;place in packet           ; TM don't mask last byte
  55.     asr.l    #8,d4        ;convert to sectors
  56.     asr.l    #1,d4
  57.     and.l    #$000FFFFF,d4    ;mask out L U #
  58.     move.l    d4,(a1)        ;place in packet
  59. ;add the logical unit #
  60.     or.b    d2,1(a1)    ;put LU# in the packet
  61.     cmp.w    #CMD_READ,IO_COMMAND(a2)    ;read ?
  62.     bne    WriteSCSI
  63.     move.b    #$08,(a1)    ;set cmd to read
  64.  
  65. Selection:
  66.     bsr    SELph        ;select the target
  67.  
  68. End:
  69.     bclr.b    #3,NCR+4    ;TM!!! clear SCSI BUSY FLAG
  70.     movem.l    (sp)+,d4-d7/a1-a5    ;restore regs
  71.     rts            ;return to caller
  72.  
  73. WriteSCSI:    ;send data to the SCSI
  74.     move.b   #$0a,(a1)
  75.     bra.s   Selection
  76.  
  77.  
  78. SELph:        ;select the target
  79.     move.l   #M250,d5    ;load timer
  80.  
  81. loop1:    btst.b   #6,NCR+8    ;test BSY
  82.     bne.s    SLECT        ;if busy , selected
  83.     subq    #1,d5        ;dec timer
  84.     bne.s    loop1        ;loop
  85. ;    move.b    #$01,15(a1)    ;set drive not ready error ; HL
  86.     move.b  #HFERR_SelTimeout,d0 ; HL
  87.     rts
  88.  
  89. SLECT:
  90.     and.b    #$FB,NCR+2    ;clr SEL
  91.       
  92. NextPhase:    ;Check the SCSI bus phase
  93.     move.b    #$0,NCR
  94.     move.b    #$0,NCR+6    ;clear TCR
  95.     btst.b    #5,NCR+8    ;test REQ
  96.     bne.s    GotREQ        ;if REQ it must be busy...
  97.     btst.b    #6,NCR+8    ;check BUSY
  98.     beq    Done        ;bus free
  99.     bra    NextPhase    ; still waiting for REQ
  100. GotREQ:
  101.     btst.b    #3,NCR+8    ;check C/D
  102.     beq.s    Dat        ;data in/out phase
  103.     btst.b    #4,NCR+8    ;check MSG
  104.     bne.s    Message        ;Message in/out phase
  105.     btst.b    #2,NCR+8    ;check I/O
  106.     bne.s    STATph        ;stat phase
  107.     bra.s    CMDph        ;command phase
  108. Message:    ;check to see if it is message in or out
  109.     btst.b    #2,NCR+8    ;check I/O
  110. ;    bne.s    MSGINph      
  111.     bne    MSGINph        ;TM
  112. ;    bra.s    MSGOUTph    ;TM
  113.     bra    MSGOUTph    ;TM        
  114. Dat:        ;check to see if it is data in or out
  115.     btst.b    #2,NCR+8    ;check I/O
  116. ;    bne.s    RDATph
  117.     bne    RDATph        ;TM
  118. ;    bra.s    SDATph        ;TM
  119.     bra    SDATph        ;TM
  120. CMDph:        ;send command
  121.     move.l    #CMDBUF,a4    ;set the cmd buffer add
  122.     move.b    #$02,NCR+6    ;set TCR to command phase
  123. Send:        ;send x characters to the target
  124.     btst.b    #6,NCR+8    ;TM busy check
  125.     beq    Done        ;TM busy check
  126.     btst.b    #5,NCR+8    ;test for REQ
  127.     beq.s    Send        ;wait for REQ
  128.     btst.b    #3,NCR+10    ;test phase match
  129. ;    beq.s    NextPhase
  130.     beq    NextPhase    ;TM
  131.     move.b    (a4)+,NCR    ;set the byte
  132.     ori.b    #$10,NCR+2    ;set ACK
  133. CMDReq:
  134.     btst.b    #6,NCR+8    ;TM busy check
  135.     beq    Done        ;TM busy check
  136.     btst.b    #5,NCR+8    ; TM test for REQ
  137.     bne.s    CMDReq        ; TM wait for REQ deasserted
  138.     andi.b    #$EF,NCR+2    ;clr ACK
  139.     bra    Send   
  140.  
  141. STATph:        ;get status byte
  142.     move.b    NCR,d7        ;move STATUS into Stat     temp
  143.     ori.b    #$10,NCR+2    ;set ACK
  144. STATReq:
  145.     btst.b    #6,NCR+8    ;TM busy check
  146.     beq    Done        ;TM busy check
  147.     btst.b    #5,NCR+8    ; TM test for REQ
  148.     bne.s    STATReq        ; TM wait for REQ deasserted
  149.     andi.b    #$ef,NCR+2    ;clr ACK
  150.     bra    NextPhase
  151.  
  152. MSGINph:    ;only msg supported is COMPLETE..so we just ack it
  153.     ori.b    #$10,NCR+2    ;set ACK   
  154. MSGINReq:
  155.     btst.b    #6,NCR+8    ;TM busy check
  156.     beq    Done        ;TM busy check
  157.     btst.b    #5,NCR+8    ; TM test for REQ
  158.     bne.s    MSGINReq    ; TM wait for REQ deasserted
  159.     and.b    #$EF,NCR+2    ;clr ACK
  160. STILLbsy:
  161.     btst.b    #6,NCR+8    ; TM BUSY check
  162.     bne.s    STILLbsy    ; TM wait if still busy
  163. Done:        ;did we end normally ?
  164.     and.b    #$0e,d7 ; This does not work very well with some adaptec; HL
  165.     cmp.b    #$00,d7 ; Remove this code (upto StatOk) if you have
  166.     beq.s    StatOk  ; an old adaptec card
  167.     cmp.b    #$04,d7
  168.     beq.s    StatOk
  169.     move.b  #HFERR_SelTimeout,d0 ; HL
  170.     rts    ;do a clean end
  171. StatOk:
  172.     move.b  #0,d0 ; HL
  173.     rts    ;do a clean end
  174.  
  175. MSGOUTph:    ;send message to target
  176.     bra    NextPhase    ;error try again
  177.  
  178. SDATph:        ;send data to target
  179.     move.l    a0,a4        ;set the data buffer add
  180.     move.b    #$00,NCR+6    ;set TCR to send data
  181. SendData:    ;send x characters to the target
  182.     btst.b    #6,NCR+8    ;TM busy check
  183.     beq    Done        ;TM busy check
  184.     btst.b    #5,NCR+8    ;test for REQ
  185.     beq.s    SendData    ;wait for REQ
  186.     btst.b    #3,NCR+10    ;test phase match
  187. ;    beq.s    NextPhase
  188.     beq    NextPhase    ;TM
  189. ;    move.b    #$02,NCR+4    ;Set DMAMODE
  190.     bset.b    #1,NCR+4    ;TM!!!
  191.     move.b    #$00,NCR+12    ;start DMA recieve
  192.     moveq    #64,d4        ;load counter..we do 512 byte blocks
  193. LoopTop:
  194.     move.b    (a4)+,DMA    ;set byte 0
  195.     move.b    (a4)+,DMA    ;set byte 1
  196.     move.b    (a4)+,DMA    ;set byte 2
  197.     move.b    (a4)+,DMA    ;set byte 3
  198.     move.b    (a4)+,DMA    ;set byte 4
  199.     move.b    (a4)+,DMA    ;set byte 5
  200.     move.b    (a4)+,DMA    ;set byte 6
  201.     move.b    (a4)+,DMA    ;set byte 7
  202.     subq    #1,d4
  203.     bne.s    LoopTop
  204. ;    move.b    #$0,NCR+4    ;clear DMAMODE
  205.     bclr.b    #1,NCR+4    ;TM!!!
  206.     bra    SendData
  207.    
  208.  
  209.  
  210. RDATph:        ;receive data fron target
  211.     move.l    a0,a4        ;set the data buffer add
  212.     lea    DMA+12,a5    ;set DMA recieve Base
  213.     move.b    #$01,NCR+6    ;set TCR to receive data
  214. RecData:
  215. ;    move.b    #$02,NCR+4    ;Set DMAMODE
  216.     bset.b    #1,NCR+4    ;TM!!!
  217.     move.b    #$00,NCR+14    ;start DMA recieve
  218.     moveq    #63,d4        ;load counter..we do 512 byte blocks
  219. RecLoop:
  220.     move.b    (a5),(a4)+
  221.     move.b    (a5),(a4)+
  222.     move.b    (a5),(a4)+
  223.     move.b    (a5),(a4)+
  224.     move.b    (a5),(a4)+
  225.     move.b    (a5),(a4)+
  226.     move.b    (a5),(a4)+
  227.     move.b    (a5),(a4)+
  228.     subq    #1,d4        ;decrement counter
  229.     bne.s    RecLoop        ;done with block?
  230.     move.b    (a5),(a4)+
  231.     move.b    (a5),(a4)+
  232.     move.b    (a5),(a4)+
  233.     move.b    (a5),(a4)+
  234.     move.b    (a5),(a4)+
  235.     move.b    (a5),(a4)+
  236.     move.b    (a5),(a4)+
  237. ;    move.b    #$0,NCR+4    ;disable ack/req
  238.     bclr.b    #1,NCR+4    ;TM!!!
  239.     move.b    (a5),(a4)+    ;read last byte of block
  240.  WRec:
  241.     btst.b    #5,NCR+8    ;test REQ
  242.     bne.s    RReq        ;Got it
  243.     btst.b    #6,NCR+8    ;check BUSY
  244.     beq    Done        ;Not Busy? must be Done.
  245.     bra.s    WRec        ;wait for REQ
  246. RReq:
  247.     btst.b    #3,NCR+10    ;test for phase match
  248.     beq    NextPhase
  249.     bra.s    RecData
  250.  
  251. CMDBUF    dc.b    $0A,$00,$00,$00,$01,$00,$00,$00,$00,$00 ; TM GENERIC
  252. ;CMDBUF    dc.b    $0A,$00,$00,$00,$01,$0c,$00,$00,$00,$00  ; TM for NEC cache
  253. STAT    ds.b    $01        ;status word
  254. MSGINBUF    ds.b    $04    ;message buffer
  255. ERROR    ds.b    $01        ;error flag
  256. ;
  257. ;
  258.     END
  259.